home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 01 New Uploads / P4UTIL.ZIP / SEQFILE.PRG (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-11-02  |  1.1 KB  |  69 lines
  1. 1 REM ***************
  2. 2 REM *   EXAMPLE
  3. 3 REM * READ & WRITE
  4. 4 REM * A SEQUENTIAL
  5. 5 REM * DATA FILE
  6. 6 REM ***************
  7. 10 PRINT"[147]INITIALIZE DISK"
  8. 20 DIMA$(25)
  9. 30 DIMB(25)
  10. 40 OPEN15,8,15,"I0"
  11. 60 GOSUB 1000
  12. 70 CR$=CHR$(13)
  13. 80 PRINT
  14. 90 PRINT" WRITE SEQ TEST FILE"
  15. 95 PRINT
  16. 100 REM *************
  17. 101 REM *
  18. 102 REM *  WRITE0SEQ
  19. 103 REM *  TEST FILE
  20. 104 REM *
  21. 105 REM *************
  22. 110 OPEN2,8,2,"@0:SEQ TEST FILE ,S,W"
  23. 115 GOSUB 1000
  24. 117 PRINT"ENTER A WORD, COMMA, NUMBER"
  25. 118 PRINT"ENTER WORD 'END' TO STOP"
  26. 120 INPUT"A$,B";A$,B
  27. 130 IFA$="END"THEN 160
  28. 140 PRINT#2,A$","STR$(B)CR$;
  29. 145 GOSUB 1000
  30. 150 GOTO 120
  31. 160 CLOSE 2
  32. 200 REM *************
  33. 201 REM *
  34. 202 REM *  READ SEQ
  35. 203 REM *  TEST FILE
  36. 204 REM *
  37. 205 REM *************
  38. 206 PRINT
  39. 207 PRINT"  READ SEQ TEST FILE"
  40. 208 PRINT
  41. 210 OPEN2,8,2,"0:SEQ TEST FILE ,S,R"
  42. 215 GOSUB 1000
  43. 220 INPUT#2,A$(I),B(I)
  44. 224 RS=ST
  45. 225 GOSUB 1000
  46. 230 PRINTA$(I),B(I)
  47. 240 IFR S=64 THEN 300
  48. 250 IF RS<>0 THEN 400
  49. 260 I=I+1
  50. 270 GOTO 220
  51. 300 CLOSE 2
  52. 310 END
  53. 400 PRINT"BADDISKSTATUSIS"RS
  54. 410 CLOSE 2
  55. 420 END
  56. 1000 REM ************
  57. 1001 REM *
  58. 1002 REM *  READ
  59. 1003 REM * THE ERROR
  60. 1004 REM *  CHANNEL
  61. 1005 REM *
  62. 1006 REM ************
  63. 1010 INPUT#15,EN,EM$,ET,ES
  64. 1020 IF EN=0 THEN RETURN
  65. 1030 PRINT"ERROR ON DISK"
  66. 1040 PRINTEN;EM$;ET;ES
  67. 1050 CLOSE 2
  68. 1060 END
  69.